﻿<!-- #include file="../ding.asp" -->
<!-- #include file="../mymin.asp" -->
<%Call Head2()
%>
<title>WML页面管理</title></head><body><div class='main400'>
<%
if KEY<>0 then
	Call Error2("<card title=""警告""><p>权限不足！")
end if

Const UploadDir="../../wml/"'存放wml文件的目录
Const MaxPerPage=10'每页显示数量

dim strFileName,totalPut,CurrentPage,TotalPages,TruePath,fso,theFolder,theFile,whichfile,thisfile,FileCount,TotleSize
strFileName="?"

if request("page")<>"" then
	currentPage=cint(request("page"))
else
	currentPage=1
end if

TruePath=Server.MapPath(UploadDir)
If not ifObjInstalled("Scripting.FileSystemObject") Then
	Response.Write "你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能"
Else
	set fso=CreateObject("Scripting.FileSystemObject")


	if fso.FolderExists(TruePath)then
		FileCount=0
		TotleSize=0
		Set theFolder=fso.GetFolder(TruePath)
		For Each theFile In theFolder.Files
			FileCount=FileCount+1
			TotleSize=TotleSize+theFile.Size
		next
		totalPut=FileCount
		if currentpage<1 then
			currentpage=1
		end if
		if (currentpage-1)*MaxPerPage>totalput then
			if (totalPut mod MaxPerPage)=0 then
				currentpage= totalPut \ MaxPerPage
			else
				currentpage= totalPut \ MaxPerPage + 1
			end if

		end if
		if currentPage=1 then
			showContent
			showsPage2 strFileName,totalput,MaxPerPage
			response.write "<br/>本页共显示" & FileCount-1 & "个文件，占用" & TotleSize\1024 & " K"
		else
			if (currentPage-1)*MaxPerPage<totalPut then
				showContent
				showsPage2 strFileName,totalput,MaxPerPage
				response.write "<br/>本页共显示" & FileCount-1 & "个文件，占用" & TotleSize\1024 & "K"
			else
				currentPage=1
				showContent
				showsPage2 strFileName,totalput,MaxPerPage
				response.write "本页共显示" & FileCount-1 & "个文件，占用" & TotleSize\1024 & "K"
			end if
		end if
	else
		response.write "找不到文件夹！可能是配置有误！"
	end if
end if

sub showContent()
	dim c
	FileCount=1
	TotleSize=0
	For Each theFile In theFolder.Files
		c=c+1
		if FileCount>MaxPerPage then
			exit for
		elseif c>MaxPerPage*(CurrentPage-1) then
%>
[<a href="wmledit.asp?path=<%=(UploadDir & theFile.Name)%>&amp;pathname=<%=theFile.Name%>&amp;sid=<%=sid%>">管理</a>]<%=C+(CurrentPage-1)*MaxPerPage%>.<a href="<%=(UploadDir &theFile.Name)%>"><%=(theFile.Name)%></a><br/>
<%
		' if FileCount mod 5 =0 then
		' end if
		FileCount=FileCount+1
			TotleSize=TotleSize+theFile.Size
		end if
	Next

end sub

sub showsPage2(sfilename,totalnumber,maxperpage)
	dim n, i,strTemp
	if totalnumber mod maxperpage=0 then
		n= totalnumber \ maxperpage
	else
		n= totalnumber \ maxperpage+1
	end if

	if n-currentpage<1 then
	else
			strTemp=strTemp & "<a href='wmltext.asp?page=" & (CurrentPage+1) & "&amp;sid="&sid&"'>下一页</a>&nbsp;"
	end if
	if CurrentPage<2 then
	else
			strTemp=strTemp & "<a href='wmltext.asp?page=" & (CurrentPage-1) & "&amp;sid="&sid&"'>上一页</a>&nbsp;"
	end if

	strTemp=strTemp & "<br/>(" & CurrentPage & "/" & n & ") "
	strTemp=strTemp & "共" & totalnumber & "个"

	if n>1 then
		strTemp=strTemp & "<input name=""page"" format=""*N"" value=""2"" type=""text"" maxlength=""5"" emptyok=""true"" size=""2""/><a href="""&sfilename&"page=$(page)&amp;sid="&sid&""">页</a>"
	end if
	response.write strTemp
end sub
%>
<br/><a href="wmladd.asp?sid=<%=sid%>">[新建WML页面]</a>
<br/><a href="wmlfile.asp?sid=<%=sid%>">[上传WML文件]</a>
<br/><a href="index.asp?sid=<%=sid%>">[站长工具]</a>
<%call Last2%>